home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 September / 1994-09b.d64 / titles inst (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  71 lines

  1. 0 rem  from q-link disk # 202
  2. 10 poke53280,6:poke53281,6:print"[147][159]              [212] i t l e s
  3. 15 [153]"         sys(NULL)ress <(NULL)(NULL)atnlenval>closeto page
  4. 20 print"[154][213]sing this application is very easy!
  5. 25 [153]"right$t's purpose is to generate a title on
  6. 30 print"your screen, which, when hooked up to
  7. 35 [153]"your (NULL)len(NULL), can also be recorded onto a
  8. 40 print"video tape. [201] use this program when
  9. 45 [153]"right$'m editing my camcorder tapes, so
  10. 50 print"that [201] can precede each new subject
  11. 55 [153]"with a title.
  12. 60 print"
  13. 65 [153]"(NULL)he titles generated are made up of 16
  14. 70 print"pixel by 16 pixel custom characters,
  15. 75 [153]"which means they are asc(NULL)(NULL)(NULL) times the
  16. 80 print"size of regular characters.
  17. 85 [153]"
  18. 90 print"[217]ou also have the choice of four
  19. 95 [153]"different fonts.":[146]197,7
  20. 105 [153]"load(NULL)o use the program, load and (NULL)(NULL)(NULL) it.
  21. 110 print"[217]ou are prompted for your title. [217]ou
  22. 115 [153]"are restricted to a title length of
  23. 120 print"50 characters. [193]ll letters and numbers
  24. 125 [153]"are supported, as well as the
  25. 130 print"apostrophe, comma, dash and period. [193]s
  26. 135 [153]"well, you have the (NULL)(NULL)atnlenval and a (NULL)left$right$asc(NULL)ed
  27. 140 print"[211][208][193][195][197].
  28. 145 [153]"
  29. 150 print"[212]he [211][200][201][198][212]ed [211][208][193][195][197] is used as a means
  30. 155 [153]"of making sure that the title is not
  31. 160 print"broken in an unattractive place. [198]or
  32. 165 [153]"example, if you typed:
  33. 170 print"
  34. 175 [153]"str$atn(NULL)right$val(NULL)'(NULL) peekright$(NULL)(NULL)left$str$atn(NULL) (NULL)atn(NULL)(NULL)(NULL) atn(NULL)chr$(NULL)(NULL)(NULL) 31, 1990
  35. 180 print"
  36. 185 [153]"str$atn(NULL)right$val(NULL)'(NULL) peekright$(NULL)(NULL)left$str$atn(NULL) appears on line 1
  37. 190 print"
  38. 195 [153]"(NULL)atn(NULL)(NULL)(NULL) atn(NULL)chr$(NULL)(NULL)(NULL) 31, appears on line 2
  39. 200 print"
  40. 205 [153]"and 1990 appears on line 3.":[146]197,7
  41. 215 [153]"loadright$f you would want atn(NULL)chr$(NULL)(NULL)(NULL) 31, 1990 all
  42. 220 print"on one line( the third line ) then
  43. 225 [153]"type a (NULL)left$right$asc(NULL)ed (NULL)(NULL)atnlenval between atn(NULL)chr$(NULL)(NULL)(NULL)
  44. 230 print"and 31, and a [211][200][201][198][212]ed [211][208][193][195][197] between
  45. 235 [153]"31, and 1990. (NULL)he parsing routine does
  46. 240 print"not recognize the [211][200][201][198][212]ed [211][208][193][195][197] as a
  47. 245 [153]"break point for your title, but it
  48. 250 print"will appear the same as a space when
  49. 255 [153]"displayed.
  50. 260 print"
  51. 265 [153]"atnfter you have typed in your title,
  52. 270 print"you then choose your font. [212]he font
  53. 275 [153]"be loaded, and the title will be
  54. 280 print"displayed.
  55. 285 [153]"
  56. 290 print"[201]f you want to change some colors or
  57. 295 [153]"font, you can.":[146]197,7
  58. 305 [153]"load      asc1 - change the border color
  59. 310 print"      [198]3 - change the background color
  60. 315 [153]"      asc5 - change the character color
  61. 320 print"      [198]7 - change the font
  62. 325 [153]"      any other key - erase the title
  63. 330 print"      and prompt for another title
  64. 340 [153]"asc7 will take you back to the font
  65. 345 print"selection menu, load the new font, and
  66. 350 [153]"then redisplay your title in the new
  67. 355 print"font.
  68. 395 [153]"(NULL)rogram by str$avid (NULL)ose
  69. 400 print"      [159][208]ress <[211][208][193][195][197]> to [204][207][193][196][154]":wait197,7
  70. 410 f$="titles":print"[147][142]loadf$,8[154]":poke631,19:poke632,131:poke198,2
  71.